Option Explicit
Function GetConstStr_DAO(myInt As Integer) As String
    Dim myStr As String
    Select Case myInt
        Case 1: myStr = "dbBoolean"
        Case 2: myStr = "dbByte"
        Case 3: myStr = "dbInteger"
        Case 4: myStr = "dbLong"
        Case 5: myStr = "dbCurrency"
        Case 6: myStr = "dbSingle"
        Case 7: myStr = "dbDouble"
        Case 8: myStr = "dbDate"
        Case 9: myStr = "dbBinary"
        Case 10: myStr = "dbText"
        Case 11: myStr = "dbLongBinary"
        Case 12: myStr = "dbMemo"
        Case 15: myStr = "dbGUID"
        Case 16: myStr = "dbBigInt"
        Case 17: myStr = "dbVarBinary"
        Case 18: myStr = "dbChar"
        Case 19: myStr = "dbNumeric"
        Case 20: myStr = "dbDecimal"
        Case 21: myStr = "dbFloat"
        Case 22: myStr = "dbTime"
        Case 23: myStr = "dbTimeStamp"
        Case Else: myStr = ""
    End Select
    GetConstStr_DAO = myStr
End Function

Function GetConstNo_DAO(myStr As String) As Integer
    Dim myInt As Integer
    Select Case myStr
        Case "dbBoolean": myInt = 1
        Case "dbByte": myInt = 2
        Case "dbInteger": myInt = 3
        Case "dbLong": myInt = 4
        Case "dbCurrency": myInt = 5
        Case "dbSingle": myInt = 6
        Case "dbDouble": myInt = 7
        Case "dbDate": myInt = 8
        Case "dbBinary": myInt = 9
        Case "dbText": myInt = 10
        Case "dbLongBinary": myInt = 11
        Case "dbMemo": myInt = 12
        Case "dbGUID": myInt = 15
        Case "dbBigInt": myInt = 16
        Case "dbVarBinary": myInt = 17
        Case "dbChar": myInt = 18
        Case "dbNumeric": myInt = 19
        Case "dbDecimal": myInt = 20
        Case "dbFloat": myInt = 21
        Case "dbTime": myInt = 22
        Case "dbTimeStamp": myInt = 23
        Case Else: myInt = -1
    End Select
    GetConstNo_DAO = myInt
End Function
